AһյĵԪַ

'AǿյԪ£һԪ񣨿յĵԪ񣩵ĵֵַ
 Dim theRange As Excel.Range 'Dim theRange As Range 'д
 Set theRange = ActiveSheet.Cells(65536, 1).End(xlUp).Offset(1, 0)  'AǿյԪ£һԪ񣨿յĵԪ񣩵ַ
'AǿյԪ£һԪ񣨿յĵԪ
 MsgBox theRange.Address, , "AǿյԪַ"

